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ODULE DBGNTYPE (IDENT = ‘v04-000') = 


RITITTLELILLLE LLL LETTE TTT TTT TTT TTT TTT TTT TTT TTT Tee t 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

' DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

it ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
!® ONLY IN oy WITH THE TERMS OF SUCH LICENSE AND WITH 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- eORPORAT Ton NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!t SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


* 
® 
® 
® 
® 
® 
® 
® 
* 
' % 
is TRANSFERRED. * 
* 
* 
® 
® 
* 
* 
® 
* 
* 
* 
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! FACILITY: 

DEBUG 

! ABSTRACT: 


This module contains the parse and execution networks for the TYPE 
verb. The parsing method employed is that of ATN's. 


! 

' 

! 

' 

i] 

! 

' 

! 

i 

i ENVIRONMENT : 

; VAX/VMS 

; AUTHOR: 

Richard Title 
! CREATION DATE: 
9-14-81 
VERSION: 

. v03.0-001 

' 
! 


i MODIFIED BY: 
! V. Holt May, 1982 
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Added call to Hs ppd vay of Po. eliminating need to 


initialize local output bu 

neeeves all references to DBGSFAO. PUT and 
DBGS$OUT PUT, replacing them with Calis to 
DBGSPRINT and DBGSNEWLINE, respectively. 
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dbg$scr_screen_normal: NOVALUE, 
dbg$src_line_to_rec, 
dbg$src_type_lnum_source, 


DBG$GB_KEYPAD_INPUT: BYTE, 
DBGS$GL_KEYBOARD_1I 


DBGSGL_DEVELOPER: BITVECTORT) 


DBGSSRC_NEXT_MODRSTPTR, 
DBGSSRC_NEXT_LNUM; 


me ee ee ed ed ed nd ed ed od dd dd 


DBGSGV CONTROL : “DBGSCONTROL FLAGS, 
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GNTYPE 18-Sep-19 4 02:08: AX-11 Bliss-32 V4.0-742 Page 3 
vOee000 12286871382 95:98:82 DEBUG. SRC IDBGNTYPE B32; 1 : (2) 
; «667 06 / = 

68 06 ! TABLE OF CONTENTS: 
9 06 : 
0 06 
71 7 FORWARD ROUTINE 
7 7 DBGSNPARSE_TYPE ! Parse routine for TYPE 
7 7 DBGSNEXECUTE TYPE, i Execution routine for TYPE 
74 7 DBGSNPARSE_EBIT ' Parse routine for ED 
fe f DBGSNEXECUTE_EDIT; ! Execution routine for EDIT 
a ; REQUIRE FILES 

. LES: 
79 7 : 
80 7 
+ ? REQUIRE ‘SRC$:DBGPROLOG.REQ'; 
7 ! LIBRARY ‘LIB$:DBGGEN.L32'; 
85 1 EXTERNAL ROUTINE 
86 1 dbg$sta_getsourcemod, ! Gets module rst pointer 
87 1 dbg$sta_symname, ' Turns module rst pointer back 
88 ! into a otring 
89 dbg$print: NOVALUE, ! Formats ascii output into output buf 
90 dbg$flushbuf: NOVALUE, ! Initializes new print Line 
91 2 dbg$nnext_word, ! gets next word from input 
9 2 dbg$newline: NOVALUE, ! outputs the output buffer 
9 2 dbg$nmatch, ! Tries to match the next token 
94 2 dbg$get_tempmem, ' Allocates space 
95 2 dbg$nmake_arg_vect, ! Constructs error messages 
96 2 dbg$nsave_decimal_integer, ! Reads an integer from the 
97 ¢ ! input string 
4 ; dbg$nsyntax_error, ! Reports a syntax error 


Set screen to normal in screen mode 
Translate Line number to record num 
The routine in DBGSOURCE that 
actually outputs the source 

lines to the terminal 


Lib$do_command, Execute DCL command 
Lib$spawn, Execute DCL command _ : 
smg$set_keypad_mode, Set terminal to numeric/application mode 
sys$fao; Formatted ASCII output 

EXTERNA 


Set if mode is KEYPAD 

Used by SMGSSET_KEYPAD_MODE 

Global status flags 

Developer bits : 

Non-zero pointer if source is being 
directed to a screen display 

Contains module RST pointer 
used by TYPE command 

Contains next Line number to be 
output in case of a TYPE command 
with no argument 


! These values can go in the VERB_COMPOSITE field of the EDIT verb 
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14-Sep-19 
LOBAL ROUTINE DBGSNPARSE_TYPE(INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 


DEBUG. SRC JDBGNTYPE .832;1 


i Functional Description 
ATN parse network for the TYPE verb. 
This routine takes a verb node for the TYPE verb, and a string 
descriptor for the remaining (unparsed) input. 
It constructs a Linked List of noun nodes, each of which 
contains a module rst pointer and a Line number range. 

i Formal Parameters 


INPUT_DESC - A longword containing the address of the 
command input descriptor. 


VERB_NODE - A longword containing the address of the verb node 


G 

' 

' 

' 

! 

' 

' 

' 

' 

' 

' 

! 

! 

' 

1 

! 

; 

: MESSAGE _VECT - The address of a longword to contain the address 
of a standard message argument vector. 
' 
! 
' 
' 
! 
' 
! 
' 
' 
! 
' 
' 
' 
' 
t 
' 
' 
' 
' 


i Implicit Inputs 
None 
i Implicit Outputs 


On success, the command execution tree is constructed. = 
On failure, a message argument vector is constructed or obtained. 


i Routine value 


STS$K_SUCC 


SUCCESS ( 
STSSK-SEVERE ( 


) - Success. Command execution tree constructed. 
) - Failure. Error encountered. Message argument 


constructed and returned. 


1 
4 


i Side Effects 


None 
BEGIN 
P 
input_desc : REF dbg$stg_desc, 
verb_node : REF dbg$verB_node; 
D 
dbg$cs_colon = UPLIT BYTE (1, dbg$k_colon), 
dbg$cs_slash = UPLIT BYTE (1, dbg$k_slash), 
dbg$cs_comma = UPLIT BYTE (1, dbg$k_comma), 
dbg$cs_cr = UPLIT BYTE (1, dbg$k_car_return), 
dbg$cs_backslash = UPLIT BYTE (1, dbg$k_bacKslash); 
OCAL 
modrstptr, 
noun_node : REF dbg$noun_node, 


prev_noun_node : REF dbg$noun_node, 
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1e28e 8-1 384 9:08:38 DEBUG.SR 
roe, true 
num, 
first. flag: ' True if this is the first 
! Line number range in the List. 


! Create and Link a noun node 
noun_node = dbgsget tempmem(dbg$k_noun_node_size); 
verb_node(dbg$l_verB_object_ptr] = .noUn_node; 


first_flag = TRUE; 
modrstptr = 0; 


! Check for TYPE <cr> 
IF dbg$nmatch(.input_desc, dbg$cs_cr, 1) 
THEN 


BEGIN ! no argument supplied 
! Try to get default module. 
IF .dbg$src_next_modrstptr EQL 0 
THEN 
BEGIN 
! report an error 


-message_vect = dbg$nmake_arg_vect(dbg$_nonxtlin); 
RETURN sts$k_severe; 


! The module rst pointer is placed in the adjective field of 
! the noun node. 


noun_node (dbg$l_adjective_ptr] = .dbg$src_next_modrstptr; 
! FILL im the Line numbers based on global info 


noun_node pabest nownveiues = stagere next Lnum; 
noun_node Cdbg$l_noun_value2) = .dbg$sr¢_next_\num; 


! The Link field is zero 
noun_node Cdbg$l_noun_Link] = 0; 
END ! no argument supplied 


ELSE 
WHILE TRUE DO 
BEGIN 
OWN 


mame_buf : VECTOR (81, BYTE}; ! Holds counted string with 
: the module name 
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OCAL 

ptring.ptr. 
Length, 
char; 


Loop through the List of Line number ranges. 
The most general form of the command is: 


TYPE mod1\L1:h1, mod2\l2:h2, ... , modn\in:hn 


The user may omit the module, in which case it 
' defaults to a determined by the curr module or 

! to a module determined by the current scope. 

! He may omit the high Line num, in which case it 
is the same as the low Line num. 


ao | _buf(0] = 0; 
stri nop ptr = . input. esc(dsc$a_pointer); 
Lengt . input. dest(dsc$w_length); 


! read past leading blanks 
WHILE .length GTR 0 
DO 


BEGIN 

char = gpg beet a(string_ ptr); 
length =. erat 

If Schar WES bg$k_blank 


HEN 
EXITLOOP; 
END; 
! If the length reaches zero then it is an error 
IF length EQL 0 AND .char EQL dbg$k_blank 

THEN 


BEGIN 
message _vect = dbg$nmake_arg_vect(dbg$_needmore) ; 
RETU URN sts$k_severe; 


' Read until we reach a esagheg character. 
i Place the characters into name_buf as we read them. 


WHILE .length GTR 0 
DO 


BEGIN 
IF .char EQL ‘\" OR .char EQL ‘,' 
toe gcher EQL *:' OR .char EQ. *** 


EN eKIT 
name “but 03. = party bytCo2 + 1; 
none. “puf€.name_buf(0 char; 
char'= ch$rchat a(string. ptr); 
sual = .length - 
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_ DBGNTYPE 16-Sep-1984 02:08: AX-11 Bliss-32 V4.0-742 Page 
voe~000 1o738p-138e 93:99:58 — Eauc. Shclopenryre asoe ~ 2 
; 301 4 § ; IF .char EQL "\" ! this signifies that we read a module name 
; o¢ 4 THE 

3 “ ¢ 2 BEGIN 

: 305 4 § 4 ! Update the input descriptor 

3 4 4 4 input_desc(dsc$a_pointer] = .string_ptr; 

3 44 ; 3 ? input descldsc$w_length] = .length; 

: 309 440 4 ! convert the name to an rst pointer and put it in the 

3 + ree ? ! adjective field. 

: \ gees 4 noun_node([dbg$l_adjective_ptr] = 

3 i ree: ? dbg$sta_getSourcemod(name_buf); 

: 315 0446 4 ! If the above routine returned zero then the user entered 
3 1 ores ? ! an invalid module. 

: 318 0449 4 IF .noun_nodeCdbg$l_adjective_ptr] EOL 0 

: 329 O08) 5 THEN EIN 

; $f bees 5 -message_vect = dbg$nmake_arg_vect( 

3 $3 0453 5 dbg$_nosuchmodu, 1, name_buf); 

oe 0454 5 RETURN sts$k_severe; 

2 BBY fe: 

: 326 be8$ 4 ! fill in new value of modrstptr 

; 34 Bree ? modrstptr = .noun_node(dbg$l_adjective_ptrJ; 

: +4 0460 4 END ! pick up module name 

3 ; 0 0461 4 

3 He BOGE ; ELSE 

: 38 Beet ? BEGIN ! fill in default module 

; 35 0466 4 If _xmodrstptr NEQ 0 

; 337 68 4 ! use global default | 

; 338 0469 4 noun_node(dbg$l_adjective_ptr] = .modrstptr 

; SW 0470 4 

3 40 0471 4 ELSE 

: 30) bers 8 BEGIN 

; 8 0474 5 ' No default in modrstptr, so try to fill 

; te of? ! in a module based on current scope 

; re pee modrstptr = dbg$sta_getsourcemod(0); 

: 348 47 IF .modrstptr EQ. 0 

; 349 480 THEN 

3 50 481 

; 3) "i § ° BEGIN 

: 35 484 6 ' If this is still zero, then we have no scope with 
: 30 86 ? ! which to supply a module. Report an error. 

; 35 4 $ 6 -message_vect = dbgénaake arg_vect( 

3; 33 0488 6 dbg$_noscope, 1, .dbg$src_next_lnum); 


Ki 
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voe~000 

: 8 489 
3 9 199 
; 360 491 
; 361 136 
: 6 49 
; 6 494 
; 364 495 
; 365 984 
3 66 49 
; «4367 0498 
3 os 0499 
3 0 etd 
s 571 B28 
: 37 050 
; 0504 
3 376 0505 
3; 375 9208 
; 376 050 
3; 377 0508 
; 378 0509 
: 379 0510 
; 380 0511 
3 $1 Ba1¢ 
; 051 
3; 3 0514 
: 384 0515 
; 385 0516 
3 $89 0517 
3; 387 0518 
; 388 0519 
; $53 0520 
; 390 0521 
: 391 b258 
; #39 052 
; #39 0524 
: 394 B3s? 
; $32 05 § 
: 396 052 
3; 397 0528 
; 398 0529 
; 399 0530 
3 rey 3 1 
: 29 $338 
; 40 Beet 
: 404 535 
; 405 5 § 
: 406 5 

3; 407 5 3 
; 408 5 

: 409 540 
; 610 541 
; 411 266 
3 tl 54 
3 «(41 544 
7 416 0545 
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RETURN sts$k_severe; 
END 
ELS 
' we have found a module. 
! fill in_the adjective field 
noun_node(dbg$l_adjective_ptrd = ,modrstptr; 
END 
END; ! Fill in default module 
! read the low Line num 


IF NOT dbg$nsave_decimal_integer(.input_desc, low _lnum, 
-message_vect) 


RETURN sts$k_severe; 


! Now look for colon which signifies that the user has also 
! specified a high Line num. 


fr gsrmoomatent. Input dese dogtes_colen.t) 


BEGIN 
! Get high Line num 


IF NOT dbg$nsave_decimal_integer ( 
-input_desc, high_lnum, .message_vect) 


"RETURN sts$k_severe; 
END 
ELSE 
! high Line num same as low Line num 
high _lnum = .low (num; 
! Fill in the fields of noun_node 


noun nodes det} noun. value] = ,low_lnum; 
noun_node[dbg$l_noun_value2) = .high_lnum; 


! Link in the noun node 

IF NOT tire flop . 

bone first noun has already been Linked to the verb 
BEGIN 


prev_noun_node(dbg$l_noun_link] = .noun_node; 
noun_node[dbg$l_noun_link] = 0; 
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END; 


> 415 #$ 4 

; $18 4 

; 4) rh 

; 418 54 ! set up for next time around loop 

; 419 229 first_flag = FALSE; 

; : 22) prev_noun_node = .noun_node; 

; : ¢ 338 ! Now look for comma or for end of Line 

3: 426 228 IF dbg$nmatch(.input_desc ,dbg$cs_cr,1) 

> 425 228 THEN 

; 4 $ 22 EXITLOOP; 

; 4 & 

; 428 0559 ! If we did not see end of Line, then the next character 
; ? 3 g200 ! must be a comma. 

3; 431 6266 IF NOT dbg$nmatch(.input_desc ,dbg$cs_comma,1) 

; rR 056 THEN 

; 43 0564 

; 434 0565 4 BEGIN 

; 435 0566 4 

; 436 0567 4 -message_vect = 

3; 437 0568 4 dbg$nsyntax_error (dbg$nnext_word(.input_desc)); 
; 438 0569 4 RETURN stsSk_severe; 

3; 439 0570 4 

3; 440 0571 END; 

3 441 Bare 

3 rr 057 ! Now create a new noun node for the next time around the Loop. 
3; 44 0574 noun_node = dbg$get_tempmem(dbg$k_noun_node_size); 
> 444 0575 § END; ! While loop 

3 «445 0576 

3; 446 0577 § RETURN sts$k_success; 

: 447 0578 

3; 4468 0579 1 END; ! dbg$nparse_type 

3 INFO#250 4 


; Referenced LOCAL symbol PREV_NOUN_NODE is probably not initialized 


Cc 


-TITLE DOBGNTYPE 
IDENT \V04-000\ 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


A Q1 60000 P.AAA: .BYTE 1, 5 : 
F 01 00002 P.AAB: .BYT 1, 4 : 
C 01 00004 P.AAC: .BYT 1, 44 : 
go 4 00006 P.AAD: .BYT 1, 13 : 
C 01 00008 P.AAE: .BYTE 1, 92 : 


-PSECT DBGSOWN,NOEXE, PIC,2 
81 

P.AAA 

P.AAB 

P.AAC 


Le siietiiinbteiiihccRetindsegheapetiladinptadtaditamies aided iia -actaaa ie eaianiae 


a 


000000006 


08 


000000006 


04 


0c 


OFFC 00000 
5B 00000000 EF 9€ 00002 
5A 00000000" EF 2 00009 
5E 08 C2 00010 
04 OD B08 12 

00 2 FB 0001 
26 0 00 O00I1C 
5 08 AC 00 0001F 
AO 52 00 00023 
59 01 dO 00027 
57 D4 0002A 
01 Dd 0002C 
5B DD 4643 

ot) 04 AC 00 000 
9 oR ABE 
2c 80 £5 09080 
000000006 +4 83 BRO 
00028CE0 af dD bods 
as 11 Ones 

000000006 D 05 
000000006 DO 00058 
Dd Ft 
DO 00062 
08 A 4 00066 
015 1 00069 
a eB Bae 

$$ tO 88 
5 ? 007 

a 007 
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33 Ax-11 BL Ai gge ze V4.0-7 
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H= 

DBGSSTAS GE TSOURCEMOD 
DBGS$STA~SYMNAM 

DBGSPRINT, DBGSFLUSHBUF 
DBGSNNEXT WORD, DBGSNEWLINE 
DBGSNMATCA ~DBGSGET. TEMPMEM 
DBGSNMAK VE 

DEGSNSAVE “DECIMAL. INTEGER 
DBGSNSYNTAX ERROR 


L 
snosseT. KEYP 
SYSSFA 0;" baGs8 KEYPAD_INPUT 


DB 
DegseV_CONTROL , DE DBGSGL_DEVELOPER 


DBGS$GL- SCREEN 
DBGSSRC_NEXT NnooRS iP TR 
DBGSSRC_NEXT_LNUM 


DBGSCODE,.NOWRT, SHR, PIC,0 
peceeenast TYPE, Save R2,R3,R4,R5,R6,R7,R8,-; 


2R10,R 
Dagscs’ CR, R11 
NAME 


» DBGSGET TEMPMEM 
RO’ NOBE 
VERB. NODE” RO 
NOUN"NODE, BRO) 
#1, FIRST TAFLA 
MODRSTPT 


R11 
JMPUT ESC. R4 
#3, DBGSNMATCH 


RO, 2$ 
DBGSSRC_NEXT_MODRSTPTR 
#167136 

$ 


DBGSSRC_N_AT_MODRSTPTR, 4(NOUN_NODE) 


a. ie NEXT LD LNUM, RO 
Bcioun 12CNOOh, NODE) 


NAME 
WeRaye "STRING, PTR 
the) LENGTH 

LENGTH 


DBGNTYPE. abes 1 


0261. 


<2 | 


N11 | 
GNTYPE 16-Sep-1984 02:08: AX-11 Bliss-32 V4.0-742 Pa 2 
voe~000 10 300-138e 95:99:38 DEBUG. SRCIJDBGNTYPE .832; 1 = Bi 
53 9A 079 MOVZBL (STRING_PTR)+, CHAR ; 0400 
D7 0007C DECL TH ; 0401 
20 p ore CMPL CHAR, #32 ; 0402 
oS 1 BEQL : | 
55 05 90083 48 TSTL LENGTH 3 0409 | 
15 1 $8 BNEQ : 
20 53 01 000 CMPL CHAR, #32 : 
10 12 SOBA BNEQ : 
00028000 gf DD 000 PUSHL #164048 3 0412 
000000006 00 019 Fe 009 5$ CALLS ‘| DBGSNMAKE_ARG_VECT j | 
8 ds 009C 6$ TSTL ENGTH 7 0419 
8 15 0009 BLEQ : | 
0000005¢ = BF 33 bt a03h CPL CHAR, #92 : 0422 | 
2c 53 D1 000A9 CMPL CHAR, #44 : 
1A 13 OOOAC BEQL : | 
3A 53 Di OOOAE CMPL CHAR, #58 : 0423, 
15 13 00081 BEQL : 
20 53 D1 00083 CMPL CHAR, #32 : | 
10 13 00086 BEQL «= 7$ F | 
6A 9% 90088 INCB_ NAME_BUF 3 0426 
50 6A 9A OOOBA MOVZBL NAME-BUF, RO 3 0427, 
ar 53 90 000BD MOVB CHAR, NAME _BUFCRO] : 
5 86 9 0001 MOVZBL (STRING_PTR)+, CHAR : 0428) 
55 D7 000C4 DECL LENGTH : 0429 
D4 11 900¢6 BRB 3 0419) 
0000005C —&F 33 pI 9008 7$ CMPL CHAR, #92 : 0432, 
04 As $ i 00001 MOVL § STRING_PTR, 4(R4) 3 0437 | 
64 55 B0 00005 MOVW LENGTH? (R4) ; 0438 | 
5A 0D 00008 PUSHL R10 3 0444 
000000006 00 01 FB OOODA CALLS #1, DBGSSTA_GETSOURCEMOD 3 
04 A2 50 00 000E1 MOVL RO, 4(NOUN_RNODE) 3 | 
OC 12 OO0ES BNEQ 8$ 3 0449 | 
5A DD 000E7 PUSHL R10 3 0452 | 
01 DD 000E9 PUSHL #1 3 
000281E8 oF bb 9008 PUSHL #164328 ; | 
57 04 A2 00 0008 3 8S MOVL § 4(NOUN_NODE), MODRSTPTR : 0458 | 
2E 11 000F7 BRB ; 0432 
b3 9008 9$ TSTL  MODRSTPTR 3 0466 | 
26 12 000FB BNEQ 118 ; 
t D4 OFD CLRL_ = =( SP) 3 0477 
000000006 00 01 FB OOOFF CALLS #1, DBGSSTA_GETSOURCEMOD ’ 
: RB NS Sores gary Hag PomesreTm eae 
000000006 a db 0108 PUSHL DBGSSRC_NEXT_LNUM : 0488 
00028972 8F DD 00113 PUSHL #166258 ; 
000000006 00 0083 FB 0119 108: CALLS #3 DBGSNMAKE_ARG_VECT ; | 
04 A2 7 DO 001 3 11$: MOVL MODRSTPTR, 4(NOUN_NODE) > 0496. 
Oc AC DD O01G7 128: —PUSHL. MESSAGE vecT : 0504 
4 AE 9F OO12A PUSHAB LOW_ ; 0503 
3 DD 00120 PUSHL ; 
000000006 00 3 FB 0012F CALLS #3, DBGSNSAVE_DECIMAL_INTEGER ; 


casslininlinseettognceaehaianeiabincamshelinieitmiapailitaiceasahanieeaneiaaicity igiaskcseadiniastpibliestig ntosianitieies staat - 


12 
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yOe~000 ata 1 95:08:58 DEBUG.SR RCIDBGNTYPE. B32;1 . aid 
77 50 €9 001 6 BLBC RO, 17$ : 
01 bp 01 PUSHL # 3 0511 
FA AB 9F 00138 PUSHAB DBGS$CS_COLON : 
54 DD 4 PUSHL : 
000000006 00 9 fe 14 CALLS #3, DBGSNMATCH ; 
14 O€ ae BLBC ; 
o¢ AC DD OO14A PUSHL MESSAGE_VECT : 0519. 
0 AE 9F 3180 PUSHAB HIGH_LNOM : 0518) 
54 DD 001 PUSHL 3 0519) 
000000006 00 Fs Fe 01 CALLS HE DBGSNSAVE_DECIMAL_INTEGER : 
06 9 E8 001 BLBS 14$ : 
52. 11 Oi 3e BRB 3 93 1) 
04 AE 6E DO 0015E 138: MOVL LOW_LNUM, HIGH LNUM : 0529. 
62 6E DO 00162 148: MOVL LOW-L ENUM (NOUR_NODE) 3 0533) 
oc A 04 ag 44 0016 MOVL HIGA_LNUM TD CNOUN. NODE ) 3: 0534 
0 59 EB OO16A BLBS FIRST FLAG, 15$ : 0538 
08 <A8 52 D0 $8190 MOVL NOUN RODE oP CPREV. NOUN_NODE ) 3 0544 
08 A2 04 00171 CLRL 8( NOON ; 0545, 
59 D4 00174 15$: CLRL FIRST vty 3; 0550) 
58 52 DO 00176 MOVL NOUN "RODE. PREV_NOUN_NODE : 0551) 
01 DD 00179 PUSHL #1 ; 0555) 
0810 8F 8B 0017B PUSHR #*M<R4,R11> : 
000000006 00 03 FB 0017F CALLS #3, <TBGSMATCH : 
3A 50 €8 00186 BLBS RO, 19$ : 
01 DD 00189 PUSHL 3 0562) 
FE AB 9F 00188 PUSHAB DBG$CS_COMMA : 
54 DD 0018E PUSHL R4 3 
000000006 00 03 Fe 00190 CALLS #3, DBGSNMATCH 3 
1A 50 €8 00197 BLBS RO, 18$ : 
54 DD 0019A PUSHL R4 3 0568. 
00000000G 00 01 FB Opt Rs CALLS #1, DBGSNNEXT_WORD ; 
50 DD OO1A PUSHL RO : 
000000006 v0 01 FB 001A5 CALLS #1, DBGSNSYNTAX_ERROR 3 
oc =«BC 50 DO OO1AC 168: MOVL RO, @MESSAGE_VECT ; 
50 04 DO 001B0 178: MOVL #4, RO ; 0569 
04 00183 RET ; 
04 DD 001B4 18$ PUSHL #4 3: 0574. 
000000006 00 01 FB 00186 CALLS #1, DBGSGET_TEMPMEM 3 | 
52 50 b0 001BD MOVL RO, NOUN_NODE ; | 
FEA9 31 001CO BRW $ ; 0367 | 
50 01 DO 001C3 19$: MOVL #1, RO : 0577 | 
04 001C6 RET ; 0579 | 


3; Routine Size: 455 bytes, Routine Base: DBGSCODE + 0000 


: 449 0580 1 
: 450 0581 1 


Ba Se Se Pe Oe Oe Oe Se Se Se SH Se Se Se Fe Se Se Se SH Se Ge Se Se Se Se Ge Se eee Se Se SHS Se Se Se SF Se oe FHSS Oe Oe Se FH Se Se Oe SH Se Oe Se Se SH Be ee 


DBGNTYPE 1$-Sep-19 4 96:08:68 AX-1 


1 Pt ieee V4.0=742 Page 14 
v04-000 14-Sep-1984 DEBUG. SRC (4) 


RCJDBGNTYPE .B32;1 


; t2 ¢ ! GLOBAL ROUTINE DBGSNEXECUTE_TYPE(VERB_NODE, MESSAGE_VECT) = ; 
; 44 4 Functional Description ; 
: 436 5 § 1 i This routine performs the action associated with the TYPE : 
; tes 82 f ! command. : 
; $2 0389 Formal Parameters ; 
> 461 0591 1 | VERB_NODE - A Longword containing the address of the ; 
3 re 4 Beng : head (verb) node. . 
: 464 ba94 ii MESSAGE_VECT = The address of a longword to contain the : 
3 ret B2oe : address of an error message vector ; 
i 467 0597 1 | Implicit Inputs ; 
|: 469 0599 1! The command tree contains a verb node and a Linked List ; 
3 re pene i of one or more noun nodes. : 
: rt ges : Implicit Outputs ; 
: 474 0604 1! This routine calls a routine in DBGSOURCE which displays the : 
3 $3? 3882 ! source lines to the user. : 
i 42% 0607 1 | Routine Value : 
: $23 44 } A completion code. ; 
: rt + pel) ! Completion Codes ; 
: 483 0618 1: STS$K_SUCCESS (1) - Success. Command executed ; 
> 484 0614 1! STSSK_SEVERE (4) - Failure. The command could not be : 
$ re + Reig : } executed. An error message is constructed. | : 
: 487 0617 1 | Side Effects | F 
; 488 0618 1! | ; 
; 489 0619 1! None ; 
; 490 0620 1! : 
; 491 0621 1 : 
> 49 0622 2 BEGIN : 
; 49 06 : 
3; 4694 0624 MAP : 
3 hd 4 5 verb_node : REF dbg$verb_node; : 
: 497 069? 9 LOCAL 
: 498 0628 noun_node : REF dbg$noun_node, : 
: $35 0680 modnameptr; : 
: 501 0631 noun_node = .verb_node[dbg$l_verb_object_ptrd; : 
: 808 0633 
3 308 88 : BEGIN : 
: 53 Be § ! Loop through Linked List of noun nodes. ; 
: 208 0638 ! First output the module name. : 


| DBGNTYPE 
v0s~000 


WSIS 
oS 
~o 


ror a ot 
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PUDVIUDUDV LIVIA 
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rm 
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Liggeze ve 20-742 
DEBUG. SRC JDBGNTYP 


E.B32;1 


Set up for FAO_PUT. 


DBGS$FLUSHBUF (); 


' 
i 
i 
i 
iF 
TH 


Get the module name and print it out. Note that the printing of 


! the module name is suppressed if the source line output is being 


directed to a source screen display. 


© eaten: SCREEN_SOURCE EQL 0 


BEGIN 

DBGSSTA_SYMNAME ( . NOUN NODE COBG$L ~ADJECTIV E_PTR), MODNAMEPTR) ; 
DBGSPRIAT (UPLiT BYTE(ZASCIC ‘module !AC'),~.MODNAMEPTR) ; 

+ Yamane 


: Call the routine which actually displays the sourc Lines. 


DBGSSRC_TYPE -LNUM,  aeaget F NOUN NODE COBGSL ‘Sy Melee PTRI, 


DEED DBGSL_NOUN_VALOEJ 
NOON “NODE DBG$L-NOUN~ ~VALUE24, 6, 


END 


UNTIL 


0 EQL (NOUN_NODE = .NOUN_NODECDBGS$L_NOUN_LINK)); 


RETURN STS$K_SUCCESS 


END; 


~-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


20 65 6C 75 64 6F 6D OA OOO0A P.AAF: .ASCII <10>\module !AC\ 


000000006 


000000006 00 


00000000G 00 
000000006 00 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0004 00000 .ENTRY DBGSNEXECUTE_TYPE, Save R2 
SE 04 C3 9002 SUBL2 #4, SP 
50 04 AC DO 0000 MOVL VERB_NO 
52 08 ad D0 00009 MOVL § 8(ROJ, NOUN_N 
00 00 FB 0000D 1$: CALLS #0, DBG$FLUSHBUF 
000000006 00 05 00014 TSTL  DBGSGL SSCREEN. SOURCE 
ge 12 OOO1A BNEQ 2$ 
DD 0001C PUSHL SP 
04 A2 DD OOO1E PUSHL 4(MOUN_NODE) 
02 FB 00021 CALLS eee “DBCESTA, SYMNAME 
6 pb 0028 PUSHL 
00000000' ai F OOO2A PUSHAB PA we 
2 FB 000 0 CALLS #2, DBGSPRINT 
00 FB 000 CALLS #0, DBGSNEWLINE 


0582. 


0631 


0642 
0649 


0652 


0655 


0654 


DBGNTYPE 
yO 000 
7E 7C 
aH BS 
7E 04 
3 DD 
04 Ad dD 
000000006 99 07 F 
08 A2 D 
B41 
50 01 OD 
04 
; Routine Size: 93 bytes, Routine Base: DBGSCODE + 01C7 
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16- -Sep-1984 02:08: AX-11 Bliss-32 V4.0-742 Page 16 
1 oon 95:08:58 DEBUG.SR RCIDBGNTYPE. B32;1 (4) 
Ss CLRO -(SP) ; 0660. 
4 CLRL =(SP) 3 
Se PUSHL 12(NOUN_NODE) ; 066 
4 CLRL =(SP) ; 066 
04 PUSHL (NOUN ast : 0661 
049 PUSHL 4(NOUN_NODE) 3 0660. 
04 CALLS = &7, DBGSSRC TYPE_LNUM_ SOURCE 3 
B82 MOVL F {NOUN NODES. NOON_NOBE ; 0666 
0 BNEQ : 
0059 MOVL » RO ; 0668 
005¢ RET ; 0670 


F 12 
DBGNTYPE 16-Sep-1984 02:08: AX-11 Bliss-32 V4.0-742 Page 17 
voe~000 12286871382 95:98:82 DEBUG. SRC IDBGNTYPE .B325 1 7 (5) 
H : 967) ! GLOBAL ROUTINE DBGSNPARSE_EDIT (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 
3 re} at : } Functional Description 
; +8 e7s 1! Parse routine for the EDIT command. EDIT is the DEBUG interface 
3 ete bees : } to the EDITH editor. 
; 349 of8 1! The routine DBGSNPARSE_CMD in DBGNPARSE has already recognized 
3 229 679 1! the “EDIT'’ verb and has called this routine to parse the 
3 23 peed : rest of the command. 
§ 338 poke 1; This routine takes a verb node for the EDIT verb, and a string 
; ee DeRe : descriptor for the remaining (unparsed) input. 
; 556 bebe ! The rest of the command execution tree is constructed. 
; 558 0687 1 ! Formal Parameters 
; 559 0688 1! 
; 560 0689 1! INPUT_DESC - A longword containing the address of the 
3 2) Be30 : command input descriptor. 
; 508 oe9 ! VERB_NODE - A longword containing the address of the verb node 
; 565 0694 1! MESSAGE _VECT - The address of a longword to contain the address 
; 566 0695 1! of a standard message argument vector. 
; 567 0696 1! 
; 568 0697 1°! Implicit Inputs 
; 569 0698 1! 
s of0 0699 1! None 
t or 0700 1! 
3 276 0701 1°! Implicit Outputs 
3 (OF 0702 1! 
: 574 0705 1! On success, the command execution tree is constructed. . 
; 37? BP : On failure, a message argument vector is constructed or obtained. 
. Sry 0706 1 ! Routine value 
; 578 0707 1! 
3; 3° 0708 1! STS$K_SUCCESS (1) - Success. Command execution tree constructed. 
; 580 0709 1! STSSK_SEVERE (4) - Failure. Error encountered. Message argument 
: 581 0710 1! constructed and returned. 
; 4 0711 1! 
; 58 44 1 ! Side Effects 
; 584 0713 1! 
; 585 Bete 1! None 
; 386 716 7! 
: Ser 0716 1 
5 tae 0717 BEGIN 
3; 589 fat 
3 390 719 MAP 
3 391 0720 INPUT_DESC : REF DBGSSTG DESC 
; 398 0721 VERB_RODE : REF DBGSVERB_NODE; 
; 2 3756 
; 594 7 BIND 
; 595 724 DBGSCS_EXIT = UPLIT BYTE (4, ‘EXIT'), 
; 596 725 DBGSCS_NOEXIT = UPLIT BYTE (6, ae Lh Pa 
s 597 7 $ DBG$CS_BACKSLASH = UPLIT BYTE (1, DBGS$K_BACKSLASH) 
; 598 07 DBGSCS-CR = UPLIT BYTE (1, DBGSK~CAR_RETURNS, 
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14-Sep-1984 


z DBGS$CS_SLASH = UPLIT BYTE (1, DBGSK_SLASH); 
7 LOCAL 
731 HAR 
: DLINE PTR: REF DBGSDLINE_ENTRY, 
4 LENGTH, 
5 LINENO, 
6 LINUM 
MODRSfPTR, 
8 NAME_BUF: VECTOR (81, BYTE) 
9 NOUN-NODE: REF DBGSNOUN_NODE, 
RBEG, 
RLEN, 
SRC_DISP: REF DBGSDISP_ENTRY, 
STRING_PTR; 


Create and Link a noun node. 

NOUN_NODE = DBGSGET_TEMPMEM(DBGSK_NOUN_NODE SIZE); 
VERB_NODECDBGSL_VERB_OBJECT_PTR] = .NOON_NOBE; 

} Pick up optional /EXIT or /NOEXIT. /NOEXIT is the default. 
VERB_NODECDBG$B_VERB_COMPOSITE] = EDIT_NOEXIT; 

WHILE DBGSNMATCA (. INPUT_DESC, DBGS$CS_SLASH, 1) DO 


SELECTONE TRUE OF 
SET 


6 
4 CDBGSNMATCH (,INPUT_DESC, DBGSCS_EXIT, 1)]: 
6 VERB_NODECDBG$B-VERB. COMPOSITE) = EDIT_EXIT; 
6 CDBGSNMATCH (.INPUT_DESC, DBGSCS_NOEXIT, 1): 
VERB_NODELDBG$B-VERB. COMPOSITE) = EDIT_NOEXIT; 
CDBGSNMATCH (.INPUT_DESC, DBGSCS_CR, 1)]: 


SIGNAL (DBG$_NEEDMORE ); 


FW ODNA UE WIN 9 DOONAN EWN  O OONO UE WN OO OONOUS WhO 


RIPDPIPORIPINIPIPINPINI WWII NNW WWIII ANNI NI AI AIA PI POPU POPONININININUNPONYD 


77 COTHERWISE): 

of SIGNAL (DBG$_CMDSYNERR, 1, DBGSNNEXT_WORD(.INPUT_DESC)); 
77 TES; 

77 END; 

77 

77 

ue Initialize module and Line number. 
77 MODRSTPTR = 0; 

78 LINENO = 0; 

7 

: 

7 


Check for EDIT <cr> 


H 12 
16-Sep-1984 02:08: AX-11 Bliss-32 V4.0-742 Page 1 
1425S eats r 96:08:58 DEBUG.SR RCIDBGNTYPE. B32;1 . (5 
a Oe Petes DBGSCS_CR, 1) 

BEGIN 


Try to get default module and Line number. If screen mode is set, 
then get this info from the source display on the screen. Otherwise, 
use defaulting rules based on the most recent TYPE command. If we 
are unable to default module name and Line number then leave 

zeros in the variables to indicate this. 


SRC_DISP = .DBGSGL_SCREEN_SOURCE; 
ah ~SRC_DISP NEQ 


BEGIN 
MODRSTPTR = .SRC_DISPCOBGSL_DISP_MODPTRI; 


—Gee Gs ee es ee es erm 


! Do the computation to figure out what Line number is 
the center of the source display. 


RBEG = .SRC_DISPCDBG$W_DISP_RBEG); 

RLEN = : SRC~DISP DBGSW DIP. “RLEN] ; 

DRO ISPLDBG$W-DISP 

DL INE PTR =".SRC_D DIsP PLOBGSL » st “eragt _LINE_PTRI; 
LINUM”= .DLINE_PTROD DLINE c TMU 

LINENO ="(.DROQ-. ReeeS rs ORLEN7 5 


IF .DBGSSRC_NEXT_MODRSTPTR NEQ 0 
BEGIN 
MODRSTPTR = .DBGSSRC_NEXT “eg hone 
Liaene # = .DBGSSRC_NERT_LNOM 
END 


ELSE 
BEGIN 


' Initialize the buffer which will hold the module name. 
; Set up to scan the input. 


name _buf(0) = 


string ptr = Veet; esc(dsc$a gopinterd; 
lengt input_ desc(dsc$w_length); 


Read past leading blanks 
WHILE .lLength GTR 0 DO 
BEGIN 
char = eeirenor a(string_ ptr); 


length = 
IF grote ae ie NEQ Odbgsk. blank 


PEE FWA WNW WWIII BBW RRR RRR RRR REPRE 


BEAN WII WIA PUPIPINIPININID 2 2 OO OO es oe 


{ 


DBGNTYPE 

Moen o00 

s 713 4 

3; 6716 rk 
s 71$ 44 
3 r8 45 
3 i 8 re 
; 718 N84 

; 719 o8e8 
; 720 084 

s fel 0850 
: F ¢ 0851 
 £ $826 
3 726 Bae 

s 2 54 
3; 726 0855 
: Te? 0856 
3; 728 0857 
3 44 0858 
; 730 0859 
s 731 0860 
3 ree 0861 
; 73 086 

; 734 086 

3 735 0864 
; 736 0865 
: 737 086 

3; 738 086 

: 739 0868 
: 740 0869 
3: 741 0870 
3 rg 0871 
; 74 fh 
3 744 087 

: 745 0874 
; 746 0875 
3 767 0876 
: 748 0877 
3; 749 0878 
; 750 0879 
: 751 0880 
3; 75 0881 
3 7 088 

3; 754 088 

3 755 0884 
cS wa 885 
: rs 88 

: 758 088 

; 759 tts 
; 760 889 
: 761 Ba 
s 6 91 
; 76 Ba36 
3 6764 89 

: 765 Baoe 
3 766 895 
7 
: 768 9 

: 769 0898 


ivr ay oF of ot ot ot ot ot ot ot et ot et et et et et et ee eh) ee ee et et et ot et oe er lt ee ee ee ee ee © Pe) 


ep-19be 19:17:95 
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1 
1 

THEN 

EXITLOOP; 

END; 
If the Length reaches zero then it is an error. 
if .length EQL 0 
HEN 


$DBG_ERROR( "DBGNTYPE\DBGSNPARSE_EDIT'); 
' Read until we reach a coating character. 
Place the characters into name_buf as we read them. 
UWILE. Length GTR 0 DO 
IF .char EQL ‘\" OR .char EQL ' ' 
eetOy 
name_buf 0) : = ,name _buf(0] + 1; 
iF rene buf(0] GTR™80 
SIGNAL (dbg$ codsynerr. 1, 
name_buf(.name_6 ‘char; 


char~= ch$rchar cs hate ptr); 
OY ti = .length - 


dbg$nnext _word(.input_desc)); 


Backslash signifies that we just read a module name. 
if .char EQL ‘\* 
THE 

BEGIN 


Update the input descriptor 


ointer]) = 


input_ desc(dsc$a_ 
ength) = 


-string_ptr; 
input_descldsc$w_ 


- length; 

: Convert the name to an rst pointer. 

modrstptr = dbg$sta_getsourcemod(name_buf); 

! If the above routine returned zero then the user entered 
an invalid module. 
if -modrstptr EQL 0 


HE 
> SIGNAL (dbg$_nosuchmodu, 1, name_buf); 


ELSE 


+". 


=74 
83 


23 
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ooonononowownovon 
SH Ss Ss OO 


Coooooocoo 
OWDNAVE WIN $9 ODNAUE WN OO ONAUE WN" OOODNAUSE 
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WIWAWAAAN WAI Wnononononornofronofnorny 
=PNIPININININININININININ NNN BS BB ESE PEELE PPPS 


SOOCCOooOoCoooooooooooooo 


oO 


4E 246 47 42 44 5C 
54 


49 44 


BEGIN 


in a module based on ( 
YPE command, or (3) current scope 


RC_DISP = ,DBGSGL_SCREEN_SOURCE; 
3 SRC_DISP NEQ 


' 
§ 
IF 
THEN 


No module was specified, so try to fill 
1§ module in current 
pource display, or_(2) module given by previous 


MODRSTPTR = .SRC_DISPCOBGSL_DISP_MODPTR) 


ELSE IF .DBGSSRC_NEXT_MODRSTPTR NEQ 0 
THEN 


MODRSTPTR = .DBGSSRC_NEXT_MODRSTPTR 


Read the Line number. 


LSE 
- modrstptr = dbg$sta_getsourcemod(0); 


if _ dbg$nsave_decimal_integer(.input_desc, lLineno, .message_vect) 


RETURN sts$k_severe; 
ND; 


! Fill in the fields of the noun node with the module and 


line number. 


NOUN_NODE[DBGSL_ADJECTIVE_PTR] = .MODRSTPTR; 
NOUN_NODECDBGS$L_NOUN_VALUE) = .LINENO; 


We have finished parsing the EDIT command. Return success. 


RETURN STS$K_SUCCESS; 
END; 


LPSECT 

04 00015 P.AAG: .BYTE 
54 49 58 48 00016 "ASCII 

06 QOO1A P.AAH: .BYTE 
54 49 58 45 GF GE 00018 "ASCII 

5C 0021 P.AAI: .BYTE 

0D 1 00 P.AAJ: .BYTE 
45 50 50 56 6G 7 42 fo 18 BOOS? Pam, chee 

45 5F is 53 $8 41 38 $8 ig gS Be 
DBGSCS_EXIT= 


DBGSPLIT,.NOWRT, 
4 

\EXIT\ 

peaeers 

1, 

i. 1 


1, 4 
<24>\DBGNT YPE\<92>\DBGSNPARSE_EDIT\ 


P.AAG 


SHR, 


AX-11 Bliss-32_ V4.0-742 
DEBUG. SRC JDBGNTYPE .832;1 


PIC,0 


row 
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6-Sep-19 AX-11 Bliss-32 V4.0-742 Page 22 * 
ersepnt See 9S:98:se = PANEL Ot isense Vb.05 Tse, of $5 | 
DBGSCS_NOEXIT= P.AAH | 
DBGSCS"BACKSLASH= PAI 
DBGSCS~CR= PAA 
DBGSCS~SLASH= P AAK 


«PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 ENTRY DBGSNPARSE. EDIT, Save R2,R3,R4,R5,R6,R7,RB.-; 0671 
5B 000000006 00 9€ 0000 MOVAB reais aft’ : 
SA 00000009" EF 9E 0 00 MOVAB maatss : 
5€ AB AE 9E 00010 OV : 
4 DD 00014 PUSHL + 0748 
000000006 00 1 FB 00016 CALLS DBGSGET TEMPMEM : 
59 0 pO 00010 MOVL 40 NOBE 3 
52 08 AC DO 00020 MOVL VERB. NODE” R2 : 0749. 
08 Ae 59 DO 00024 MOVL § NOUNTNODE. 8(R2) : | 
01 Ad 02 90 00028 MOVE of R + 0754 
54 04 AC 00 0002C MOVL INPUT_DESC, R4 + 0755 
07 DD 00030 1$: PUSHL : 
02 AA OF 00052 PUSHAB DBGSCS_SLASH : 
54 DD 0003 PUSHL : 
6B 93 FB 00037 CALLS #3, DBGSNMATCH $ 
63 0 £9 O003A BLBC =s_«RO.:« S$ : 
01 DD 00030 PUSHL : 0761 
F2 AA 9F 0003F PUSHAB DBGSCS_EXIT : 
54 DD 00042 PUSHL R4 : 
6B 03 FB 00044 CALLS #3, DBGSNMATCH : 
01 50 D1 00047 CMPL = RO. #1 F 
06 12 0004A BNE : | 
01 =A2 01 90 0004¢ MOVB = #1,._:«1(R2) : 0762. 
DE 11 00050 BRB ; | 
01 DD 00052 2s: PUSHL #1 + 0764 
F7 AA 9F 00054 PUSHAB DBG$CS_NOEXIT : 
54 DD 00057 PUSHL  R4 ; 
6B 03 FB 00059 CALLS #3, DBGSNMATCH : 
01 50 D1 9005¢ CMPL RO. #1 : 
06 if 005F BNE : 
01 A2 02 90 00061 MOVB 2. 1(R2) : 0765 
C9 11 00065 BRB : | 
01 DD 00067 3s: PUSHL i : 0767 
0410 8F BB 00069 PUSHR #*M<R4,R10> : 
6B 93 fe 8068 CALLS 5. 8 DBGSNMATCH 3 
01 0 pi 000 CMPL : 
OF 12 0007 BNE : 
00028000 8F DD 0007 PUSHL #164048 + 0768 
000000006 00 01 FB 0078 CALLS #1, LIBSSIGNAL : 
AC 11 0008 BRB 1$ : 
54 DD 00084 4$: PUSHL R4 : 0771 
000000006 00 or FB 0086 CALLS #1, DBGSNNEXT_WORD ; 
0 DD 0008 PUSHL RO : 
1 DD 00 ef PUSHL : 
00028EB8 8F DD 0 1 PUSHL #167608 : 
000000006 00 3 Fe 97 CALLS #3, LIBSSIGNAL : 
0 1 O09 RB : 0755 
56 D4 OOOAO 5$: CLRL §- MODRSTPTR : 0779 


—_——_—__—__—_—— 
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‘ 04 Bae CLAL ‘ NENO : 97 0 $ 
DD OOOA4 PUSHL + 0785 ; 
0410 8F BB 000A6 PUSHR amc R4,R : | ; 
68 ; FB OOAA CALLS #3, <OBGSNMATCH : ; 
4 E9 OOOAD BLBC~—E—s&RO, : ; 
52 000000006 00 D 9080 MOVL §§ DBGSGL_SCREEN_SOURCE, SRC_DISP + 079 ; 
13 0008 BEQL $$ + 079 ; 
§ 34 «OA 0089 MOVL (SRC_DISP), MODRSTPTR + 0800 | : 
10 Ad 3C 000BD MOVZWL 16(SRC“DISP) RBEG : 806 : 
0 12 Ad 3 000C1 MOVZ2WL 18(SRC-DISP), RLEN + 080 ; 
51 18 OA 00¢5 MOVZWL gh (SRC-DISP) ROW + 0808 ; 
23 20 A2 D 90¢9 MOVL 2(SRC~DISP), DLINE_PTR + 0809 | : 
AS D CD MOVL.  16(DLINE_PTRS, LINUM ; 0810) ; 
5} 55 C2 00001 SUBL ne. RI” : 0811 | ; 
50 02 C6 00004 DIVL2 #2, RO : | ; 
50 1 ¢€0O 00007 ADDL R1, RO 3 3 
6E 50 53 C€1 OOODA ADDL LINUM, RO, LINENO 3 3 
14 11 OOODE BRB 5 + 0797) : 
50 000000006 00 00 OO00EO 6$: MOVL § DBGSSRC_NEXT_MODRSTPTR, RO + 0814 ; 
B 13 000E7 BEQL 7$ 3 3 
56 50 06 000E9 MOVL RO, MODRST ; 0817) ; 
6E 000000006 00 01 ¢ OO00EC SUBL3 DBGSERC. TNEXT _LNUM, LINENO : 0818 | : 
00EO 31 O00F4 7$ BRW 18s + 0785 ; 
04 AE 94 O00F? 8S CLRB ; 0830 | : 
58 04 AG p0 OOOFA MOVL eye aed STRING_PTR : 0831 ; 
57 64 3C OOOFE MOVZWL (R4), LENGTH 3 0832. : 
57 D5 00101 98: TSTL LENGTH ; 0837. ; 
0A 15 00103 BLEG : : 
55 88 9A 00105 MOVZBL (STRING_PTR)+, CHAR + 0839 ; 
57 07 00108 DECL LEN + 0840 | : 
20 55 D1 OO10A CMPL tRAR, #32 > 0841 | ; 
Fe 13 0010D BEQL ; ; 
57 D5 OO10F 10$:  TSTL LENGTH + 0849) ; 
12 12 00111 BNEQ 11$ : ; 
04 AA 9F 00113 PUSHAB  P.AAL : 0851. 3 
01 OD 00116 PUSHL ; F 
00028362 8F DD 00118 PUSHL #164706 ; | ; 
000000006 00 03 FB OOt1E CALLS #3, LIBSSIGNAL : : 
7 05 00125 11$: TSTL - LENGTH : 0857. 3 
41 15 00127 BLEQ : 3 
0000005cC =F 55 Di 00129 CMPL CHAR, #92 : 0859. : 
38 13 00130 BEQL ; | 3 
20 55 pi 003 CMPL CHAR, #32 : | ; 
3313 4 BEQL 13s ; : 
04 AE 96 001 INCB AME _BUF : 0862_ ; 
53 04 AF 9A 0013A MOVZBL NAnE “BUF, R3 : 086 : 
50 «BF 53 91 001 5 CMPB #80 ; : 
1A 1B 0014 BLEQU R36 : ; 
54 DD 00144 PUSHL R4 : 0865 : 
000000006 00 gi FB 00146 CALLS #1, DBGS$NNEXT_WORD ; : 
0 DD O40 PUSHL RO ; : 
1 DD 0014F PUSHL : ; 
00028EB8 8F DD 91 1 PUSHL 67608 ; F 
000000006 09 3 FB 157 CALLS A LIBSSIGNAL ; : 
04 AES 9 ot ‘ 12$: MOVB CHAR, NAME BUFCR3) : 0866. : 
55 : 9A 0016 MOVZBL (STING MPIRD*, CHAR > 0867. : 
D7 00166 DECL LENG > 0868 | : 
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11 00168 BRB 11$ 3 0857) : 
0000005C BF ; D| IgA 13$: cMPL CHAR, #92 ; 0874 ; 
04 AG : 06 173 MOVL § STRING_PTR, 4(R4) ; 0881 | ; 
64 : 17 MOVW  LENGTH> (R4) : 0882 ; 
04 AE 9F OO17A PUSHAB NAME BU : 0887. : 
000000006 90 1 F 17D CALLS #1, BBGSSTA_GETSOURCEMOD 3 3 
6 9 dO 001 MOVL RO, MODRSTPTR : ; 
1 187 BNEG + 0893) : 
04 AE 9F 00189 PUSHAB NAME_BUF + 0895. F 
1 DD 0018¢ PUSHL #1 : ; 
000281E8 8F DD 01 PUSHL #164328 ; : 
000000006 00 3 FB 00194 CALLS #3, LIBSSIGNAL ; | ; 
4 11 00198 BRB + 0874 F 
52 000000006 00 09 0190 14$:  MOVL  DBGSGL_SCREEN_SOURCE, SRC_DISP : 0907 ; 
13 OO1A4 BEQL ; 0908 | ; 
oT) 34 A 06 0146 MOVL 52(SRC_DISP), MODRSTPTR : 0910. ; 
50 000000006 00 09 O1AC 15$:  MOVL DBGSSRC_NEXT_MODRSTPTR, RO + 0912) : 
9 12 0018 BNEG  16$ ; | : 
E D4 00185 CLRL = (SP) + 0917) : 
000000006 00 gi FB 0187 CALLS #1, DBGS$STA_GETSOURCEMOD ; ; 
56 0 DO OO1BE 16$:  MOVL RO. MODRSTPTR ; : 
OC AC DD O01C1 17$:  PUSHL MESSAGE_VECT : 0923 F 
04 AE 9F 0014 PUSHAB LINENO ; : 
54 DD 001C7 PUSHL R4 ; ; 
000000006 00 03 FB 001C9 CALLS #3, DBGSNSAVE_DECIMAL_INTEGER ; : 
4 0 €8 00100 BLBS RO. 18$ : F 
0 04 DO 00103 MOVL #4, RO + 0925 ; 
04 00106 RET ; F 
04 a9 56 00 001D7 18$: | MOVL § MODRSTPTR, 4(NOUN_NODE) : 0932. ; 

69 6E 00 00108 MOVL = LINENO, (NOUN_NODE) ; 0933) 

50 01 DO 001DE MOVL #1, RO : 0938 

04 001€1 RET > 0939 


; Routine Size: 482 bytes, Routine Base: DBGSCODE + 0224 | 
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$ B18 R49 } GLOBAL ROUTINE DBGSNEXECUTE_EDIT (VERB_NODE, MESSAGE_VECT) = 5 
3 13 Be : Functional Description $ 
§ B16 944 1! This routine performs the action associated with the EDIT F 
; 3 oi } command. EDIT is the interface to the EDITH editor. ; 
3 £15 Boe 1! This routine constructs a DCL command Line which invokes EDITH. $ 
; 820 948 1! Either LIBSSPAWN or LIBSDO_COMMAND is called to execute the ‘ 
: : 1 0949 1! command Line. ; 
3 ¢ 0950 1! 3 
; B32) 1 ! Formal Parameters : 
3 4 09 § 1! 3 
3 5 0955 1! VERB_NODE - A longword containing the address of the 3 
; 826 0954 1! verb node of the command execution tree. F 
; 827 0955 1! This tree has elready been built by the 3 
; as8 bees : DBGSNPARSE_EDIT routine. $ 
; 850 0958 1! MESSAGE _VECT - The address of a longword to contain the : 
3s 83) 0959 1! address of an error message vector F 
3 o36 0960 1! : 3 
; 8s 0961 1! Implicit Inputs 3 
; 834 $306 1! 3 
3; 835 0965 1! The command tree contains a verb node and a noun node. 3 
; 836 0964 1! 3 
3; 837 0965 1 ! Implicit Outputs F 
; 838 0966 1! ; : 
: 839 0967 1! This routine constructs a command Line and calls either : 
3 re Bek : } LIBSSPAWN or LIBSDO_COMMAND to execute the command Line. i 
3 Hak 0970 1 ! Routine Value 3 
; 84 0971 1! 3 
> B44 0972 1! A completion code. 3 
3; 845 0973 1! 3 
F} 6 0974 1 ! Completion Codes s 
; 847 0975 1! 3 
; 848 0976 1! STSSK_SUCCESS (1) - Success. Command executed : 
3; 849 0977 1! STSSK_SEVERE (4) - Failure. The command could not be 3 
3 gee 344 : : executed. An error message is constructed. 3 
3 26 0980 1 : Side Effects 3 
3; 8 0981 1! ’ : 
3; 854 34-04 ': If the EDIT/EXIT form of the command was given, the debugging : 
: 55 84 1! session is terminated. 3 
3; 856 984 1! 3 
3 857 985 1 3 
; 858 98 BEGIN 3 
; 859 098 3 
3; 860 0988 P 3 
3 ryt 989 VERB_NODE : REF DBGSVERB_NODE; ; 
3 o¢ 990 3 
: ai 991 LOCAL 3 
3 3454 COMMAND_LINE: VECTOR(132,BYTEJ, ! Command Line to invoke EDITH : 
3 33? 99 CTRLBUF 2 
: 994 CTRLDESC: DBGSSTG DESC, ; ; : 
: 867 995 FABPTR: REF a BECL ! FAB for searching for newer file ver. : 
> 868 996 FAOBUF: VECTOR(80, BYTE), : 
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; 869 $33; FAODESC: DBGSSTG_DESC, : 
; 870 998 FAOLEN, : 
; 871 0999 LENGTH, ! Length of command Line : 
: Le 1000 LINENO ' Line number given in EDIT command ; 
: 87 1001 MODRSTPTR, i Module given in EDIT command ; 
3; 874 1308 N P ! Ptr to filename buff for SPARSE/S$SEARCH : 
; 875 100 NAMPTR: REF S$NAM_DECL, : 
3 B78 1004 NAMRSA ! Ptr to filename buff for SPARSE/S$SEARCH : 
> 877 1005 NOUN NODE : REF DBGSNOUN_NODE, { Noun node in execution tree ; 
; gre 1906 DLDNARPTR : REF $NAM_DECC, ! NAM block of current source file : 
; 880 1008 RECNO ' Record number in file $ 
; 881 1009 STATUS ' Return status temp. 3 
; BB¢ 1010 STG_DESC: DBGSSTG_DESC; i String descriptor ; 
; 88 1011 3 
; 884 1016 : 
; 885 101 : ; 
; 886 1014 ! Recover the noun node. From this, obtain the module RST pointer and ; 
; 887 1015 ! Line number. 3 
; 888 1016 2 : : 
; 889 1017 2 NOUN_NODE = .VERB_NODECDBG$L_VERB_OBJECT_PTRI; 3 
; 890 1018 2 MODRSTPTR = .NOUN NODECDBG$L_ADJECTIVE_PTRI; 5 
; 891 1019 2 LINENO = .NOUN_NOBECDBGSL_NOON_VALUEJ; $ 
; 89 1020 2 | F 
; 8 1021 2 : 3 
; 894 \3s¢ 2 : Build the command Line and the string descriptor : 
; 895 1023 2 : with which we will invoke EDITH. We start by initializing 3 
; 896 1924 2 ! the current Length of the command Line and a pointer into 3 
; 897 19$? 2 ! the command Line. 3 
; 898 1026 2 : : 
; 899 1027 2 LENGTH = 0; 3 
: 900 1028 2 PTR = COMMAND_LINE; 3 
; 901 4 2 5 
: 90 1030 2 3 
; 90 1031 2 ! Append the LSEDIT command to the Line. 3 
: 904 1032 2 ! Note = the command name may change. We leave a few extra 3 
; 905 1033 2 ' spaces g° we can patch in whatever command name they choose, 3 
; 906 1034 2 ! up to 15 characters. 3 
: 907 1035 2 ! Additional note - it now appears that the command name will 3 
; 908 1036 2 ! be EDIT/LSE. However, this change will not happen until at least 3 
: 909 1037 ' version 4.1 of VMS. F 
; 910 1038 ! 3 
3; 911 1039 LENGTH = .LENGTH + 15; : 
; ar Ho PTR = CHSMOVE(15, UPLIT BYTE(ZASCII "LSEDIT *), PTR); : 
: 914 Hk § ; : 
; «915 104 ! The following block is ony executed when a source file is present. : 
; 916 1044 2 ! Translate the module and line number into a NAM block pointer and record 3 
; 917 1045 ' number within the file. This is done by calling a routine in DBGSOURCE. 3 
; 918 1046 ! Also, do the checking for a more recent version of the source file, 2 
; «919 1047 i and issue any operons tote messages. After this is done, add the : 
; as 1308 file name and the appropriate /START_POSITION qualifier. 3 
: $32 1050 IF .MODRSTPTR NEQ 0 : 
; Pe 1051 THEN 3 
: 926 1026 BEGIN : 
; 925 1053 3 DBG$SRC_LINE_TO_REC(.MODRSTPTR, .LINENO, OLDNAMPTR, RECNO); § 
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; F $ 1054 

; 9 132? 

3 2 3 1928 Get memory for the FAB and NAM blocks. 

; 930 1058 FABPTR = DBGSGET_TEMPMEM( (FABSC_BLN+3)/4); 

; 931 1059 NAMPTR = DBGS$GET-TEMPMEM( (NAMSC_BLN43) /4) : 

3; 9 § 1060 NAMESA = DBGSGET_T soa deb bharl p Baht tot de 

; 9 1061 NAMRSA = DBGSGET_TEMPMEM( (NAMSC_MAXRSS+3)/4); 

. 

3 238 Hg: Initialize the FAB and NAM blocks for SPARSE and $SEARCH. 

3 4 P 1066 SFAB_INIT(FAB = .FABPTR, 

; 939 P 106 NAM = .NAMPTR 

: 940 © 1068 FNA = .OLDNAMPTRINAMSL_ESAJ 

; 341 1069 FNS = (.OLDNAMPTRENAMSB_ESLJ - .OLDNAMPTRLNAMSB_VER]) ); 

5 3c§ P 1071 SNAM_INIT(NAM = .NAMPTR, 

; 944 P 1076 ESS = NAMSC_MAXRSS, 

; 945 P 107 ESA = .N A, 

: 946 P 1074 RSS = NAMSC_MAXRSS, 

3; 947 1075 RSA = .NAMRSA ); 

; 948 1076 

; 949 1077 ! Parse the spec, and then search for the most recent version. 

; 950 1078 i The PARSE should never fail, since we are using a string from a 

; «951 1079 ' previous file OPEN. However, under very unusual circumstances, 

: 226 1080 3 ' the SEARCH mail fail (if a user spawned out from DEBUG and renamed 
3 oer 1oas ; or deleted the file, for example). 

; 955 1088 ; STATUS = S$PARSE(FAB = .FABPTR); 

3; 956 1084 IF NOT .STATUS 

: 957 1085 ; HEN 

FY 38 Ha : $DBG_ERROR("DBGNTYPE\DBGSNEXECUTE_EDIT - RMS Parse error',.STATUS); 
; 960 1088 3 STATUS = $SEARCH(FAB = .FABPTR); 

3; 961 1089 H IF NOT .STATUS 

; 962 1090 THEN 

; 963 1091 3 SIGNAL (DBG$_EDITNOFILE,2, 

3; 964 1038 3 . OLDNAMPTRENAMSB_ESLJ, .OLDNAMPTRLNAMSL_ESAJ, .STATUS) 
; 965 109 ; ELSE 

3; 966 1094 

: 967 1095 4 BEGIN ‘ 

3 43 44 ; Issue a message about the file we are editing. 

3 44 44 ? SIGNAL (DBG$_EDITFILE,2,.NAMPTRCNAM$B_RSLJ,.NAMPTRCNAMSL_RSA)) ; 

3; 972 1100 4 

: 973 1101 4 ! Now compare the result of the SEARCH with the old filename, and 
3 are 1196 : , issue a pair of messages if the version differs. 

: 976 1104 4 IF CHSNEQ(.OLDNAMPTRCNAM$B ven .» OLDNAMPTRCNAMSL 5540. 

: 977 1105 4 -NAMPTRCNAM$B_RSC a -NAMPTRCNAMSL_RSA ) 

; 978 1196 4 THEN 

; 979 11 5 BEGIN 

; 980 1108 : SIGNAL (DBG$_EDITREVVER); 

: <4 13%3 ? SIGNAL (DBG$~ED1TDISVER,2, .O1.DNAMPTRENAMSB_ ESL, .OLDNAMPTRENAMSL ESA) ; 
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; 983 1111 4 $ 
; «6984 Wg 4 F 
; 985 1115 4 ! Append the start post ign qualifier. Again, leave some ; 
; 986 1114 4 ! extra space for flexibiity. F 
; 987 1115 4 ! 3 
; 988 1338 4 LENGTH = LENGTH : $ 
; 989 1117 4 PTR = CHSMOVE (21, *ublit BYTE(ZASCII ‘/START_POSITION = '‘'), .PTR); 3 
; 990 1118 4 ; 
; 991 1119 4 : 
; VF 1120 4 ' We need to call S$FAO F 
; 99 1121 4 ' to translate the record number that we have into a 5 
> 994 11 ¢ 4 ! string. : 
; «995 11 4 ' 3 
: 996 1124 4 CTRLBUF = UPLIT BYTE(ZASCII ‘C!UL,1) "); ; 
; 997 1125 4 CTRLDESC ths att. = DSC$K_CLASS_ : 
; 998 1158 4 CTRLDESCLDSC$B_DTYPE] = DSCSK_DTYPE_T 3 
; 999 11 4 CTRLDESCCDSCS$W_LENGTH) = 8; 3 
3; 1000 1128 4 CTRLDESCCDSCSA_POINTER) = .CTRLBUF; 3 
: 1001 1162 4 FAOLEN = 0; 3 
3; 100 1130 4 FAODESC DSC$B_CLASS) = DSCSK_CLASS_S; 3 
3; 100 1131 4 FAODESCLDSCS$B_DTYPE) = DSCSK_DTYPE_T : 
: 1004 1136 4 FAODESCCDOSCSW_LENGTH] = 80; 3 
3; 1005 1133 4 FAODESCLDSCSA_POINTER] = FAOBUF F 
: 1006 1134 4 IF NOT SYSSFAD (CTRLDESC, FAOLEN, FAODESC, .RECNO) 3 
: 1007 1135 4 THEN 3 
; 1008 1136 4 $006  ERROR( "DBGNTYPE\DBGS$NEXECUTE_EDIT $FAO failed’) 3 
; 1009 1137 4 ENGTH = .LENGTH + . 3 
: 1010 1138 4 IF .LENGTH GTR 132 3 
3 1011 1139 4 : 
3 IOs 1140 4 $DBG_ERROR( "EDIT command: Command Line buffer has overflowed'); 3 
3; 101 1141 4 PTR = eashove FAOLEN, FAOBUF, .PTR); $ 
3 1014 1165 4 3 
; 1015 1143 4 3 
; 1016 1144 4 ! Append the file name to the command Line. F 
3; 1017 1145 & ! 3 
: 1018 1146 4 LENGTH = .LENGTH_+ .NAMPTRCNAMSB_RSLJ; F 
; 1019 1147 & If .LENGTH GIR 132 : 
: 1020 1148 4 THEN $ 
: 1021 1149 4 $DBG_ERROR(‘EDIT command: Command Line buffer has overflowed'); 3 
3 Ios¢ 1150 4 PTR = CHSMOVE(.NAMPTRCNAM$B -RSLJ, .NAMPTRENAMSL_RSA], .PTR); $ 
3: 102 1151 4 END 3 
: 1024 1126 4 3 
: 1025 1153 3 END 3 
; 1966 1154 3 
3; 10 1155 LSE é 
; 1028 1156 SIGNAL (DBG$_EDITNOF ILE); § 
; 1968 1157 2 3 
; 1050 1158 3 
: 193) 1123 ; Now build a string descriptor with the command Line. 3 
: 1938 1161 STG_ DESCCDSC$B -fL Ass) = DSCSK_CLASS_S; 3 
3 1034 1366 STG_DESCCDSCS$R_DTYPE) = otis DTYPE mt 3 
; 1035 116 STG_DESC ia the LENGTH) NGTH 3 
; 10 4 1164 STG-DESCLDSCSA~POINTER) = CORMAN LINE; ; 
31 1165 ; 
3; 1038 1166 3 
: 1039 1167 3 


! Developer bit 1 causes us to print the result but not 
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x 

LIBSSPAWN(STG_DESC); 

IF .DBG$GB_KEYPAD_INPUT 
THEN X= 1 


ELSE X = 0; 
SNGSSET_KEYPAD_MODE (DBGSGL_KEYBOARD. 1D, x); 


COTHERWISE): 
Tes $DBG_ERROR( "DBGNTYPE\DBGSNEXECUTE_EDIT'); 


END; 


090909 09 09 08 SIN NSIS NNN OO 


oo 
} heh ted rt —OOBDsIOUSWN—-OOO~ 


We are all done. Return success. 
RETURN STSSK_SUCCESS 
END; 


; ine 1168 do the action - (for testing purposes). 

3 ed 1190 IF .DBGS$GL_DEVELOPER(1) 

; 104 1171 THEN 

3 see 1106 BesiN 

: 10465 117 DBGSPRINT(UPLIT BYTE(ZASCIC "!AS*), STG_DESC); 
3 Ines 1174 DBGSNEWLINE(); 

3 104 1175 END 

; 1048 1178 

: 1049 117 ELSE 

; 1050 1178 BEGIN 

3 192) 1179 

3; 10 ¢ 1180 ' Set the screen back to normal 

3; 105 1181 ! 

; 1928 1136 DBGSSCR_SCREEN_NORMAL (); 

: 1056 1184 ! Invoke EDITH with either LIBSDO_COMMAND or LIBSSPAWN (depending 
3 ee aH on whether the /EXIT form of the command was used). 
3; 1059? 1187 SELECTONE .VERB_NODECDBG$B_VERB_COMPOSITE] OF 
: 1060 1188 SET 

3: 1061 1189 3 

: 1066 1190 3 CEDIT_EXIT): 

: 106 1191 4 BEGIN 

3; 1064 1138 4 DBGS$GV_CONTROLCDBG$V_CONTROL_EXIT] = TRUE; 
; 1065 1193 4 LIBS$DO—_COMMAND(STG_DESC); 

3: 1066 1194 3 3 

3 1 1195 3 

3 1 1196 3 CEDIT_NOEXITI: 

3 5 1197 & BEGIN 

3 1 1198 4 LOCAL 

3 1 1199 4 : 

3 1 1200 4 

: 18) 

. Y 1508 4 

iy 1308 3 

3 1 1206 : 

3 1 1207 3 

3 1 1208 ; 

3 1 1209 

.. 2 1210 

3 7 1¢1} 

* 1 \¢ 

3 1 121 

3 1 1214 

: 1 1215 

3 1 1216 1 


SOoOoCOOCOCOCoOoCOOCOCoCoCoOoCoCooooos 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


0 20 20 ¢0 20 $0 $9 54 49 44 45 53 4C 9g P.AAM: .ASCII \LSEDIT \ 
4E 26 47 42 44 5C 45 50 59 54 1 47 tg 44 2C OQOO4F P.AAN: .ASCII \,DBGNTYPE\<92>\DBGSNEXECUTE_EDIT - RMS \ 
20 54 49 44 45 SF 45 54 55 43 45 58 45 0005€ 


roe 


Ss | 


< 
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yOe~ 000 1a-8ep-19 984 6: 08: 3 DEBUG.S RCD BGNTYPE .B32;1 9 8) 
4D 060 : 
if; gf 72 Nf: §° g? §3 "3 33 § § Mika -ASCII \Parse error\ : 
4E 4F 49 54 49 53 GF 50 SF , : 41 54 ; F o07¢ P.AAO: ASCII \/START_POSITION = \ : 
0 29 5 $e 4c 8 s¢ g 0091 P.AAP: .ASCII \C!UL,1) \ : 
4E 34 47 42 46 5C 45 50 59 54 df 4 42 44 : 0099 P.AAQ: <ASCII \@DBGNTYPE\<92>\DBGSNEXECUTE_EDIT $FAO f\ : 
46 26 20 54 49 44 45 SF 45 54 5 43 43 38 43 O08 : 
$4 ge 6C 69 $1 00B8B sASCII \ailed\ : 
$0 SA 64 of 61 6D 6D 6F 63 20 54 49 44 45 9 OOCO P.AAR: .ASCII \OEDIT command: Command Line buffer has o\ ; 
i 2 ee : 
64 65 3 6F 6C be $3 88 $8 itd -ASCII \verflowed\ : 
0 3A 646 of 61 6D 6D 6F 63 20 54 49 46 45 i QOOF1 P.AAS: .ASCII \OEDIT command: Command Line buffer has o\ ; 
eo or ae 
64 65 77 6F 6C 66 $3 43 re 00119 ASCII \verflowed\ : 
53 41 21 03 00122 P.AAT: .ASCII <3>\!AS\ : 
GE 246 47 42 466 SC 45 50 59 56 GE 47 42 44 1A 00126 P.AAU: .ASCII <26>\DBGNTYPE\<92>\DBGSNEXECUTE_EDIT\ : 
54 49 44 45 SF 45 54 55 43 45 5B 45 00135 ; 

~EXTRN SYSSPARSE, SYSSSEARCH 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 

OFFC 00000 -ENTRY DBGSNEXECUTE_EDIT, Save R2,R3,R4,R5,R6,R7,- ; 0940 
R8,R9,R10,R1 : 
SE FEFO CE 9€ 00002 MOVAB -272(SP), SP : 

58 04 AC 00 00007 MOVL §VERB_NODE, R11 : 1017. 

50 08 AB 00 0000B MOVL BcRIT). NOUN_NODE ; 

56 04 AO DO OO000F MOVL § 4(NOUN-NODE)> MODRSTPTR : 1018 | 

57 60 D0 00013 MOVL (NOUN_NODE), LINENO 3 1019. 

59 D4 00016 CLRL —sLENGT ; 1027 | 

SA FF7C CD 9E 00018 MOVAB COMMAND_LINE, PTR : 1028 | 

59 OF CO 00010 ADDL #13, L > 1039) 

6A 00000000' EF OF 28 00020 MOVC3 #15, P.AAM, (PTR) + 1040 | 

5A 53 D0 00038 MOVL RS PTR : 

56 D5 00028 TSTL § MODRSTPTR > 1050. 

03 12 0002D BNEQ  1$ : | 
0164 31 O00¢F BRW F 

08 AE 9F 000 2 1$: PUSHAB RECNO + 1053 
10 AE 9F 0003 PUSHAB OLDNAMPTR ; 
7E 56 7D 00038 MOVQ $MODRSTPTR : 

000000006 00 04 FB 00058 CALLS #4 DBGSSAC_LINE. TO_REC S ee 
000000006 00 01 FB 00044 CALLS #1, DBGSGET_TEMPMEM : 
58 50 DO 00048 MOVL RO. FABPTR : 

18 DD OO4E PUSHL # : 1059 
000000006 99 gi FB 0005 CALLS #1, DBGSGET_TEMPMEM ; 
7 0 po 0097 MOVL RO, NAMPTR ; 

7E 40 BF 9A >A MOVZBL #64, -(SP) : 1060. 
000000006 00 i FB 0055 CALLS a, RawESA TEMPMEM 3 

7 40 Ff BR 0069 MOVZBL #64, > 1061 
000000006 00 | FB 9060 CALLS AP "DBs ackct. TEMPMEM 

0050 =saBF 00 OF 00 yi 0077 MOVCS RO. N (Spy #0, #80, (FABPTR) > 1069 
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Sek yeasee- hae 93:98:se PANEL Oh isse se Ve eOE Tse, - “a 
8 O7E : 
68 5003 rf 4 pore MOVW aso 3, (FABPTR) : 
16 OA 0 0084 MOVB (FABPTR) : 
iF OA g 90 00088 MOVB (FABPTR) : 
28 A D O85 MOVL NAAPTR 40(FABPTR 3 
56 0c AE 00 0009 MOVL O DNAMP R6 : 
2c AB C Ab 00 00094 12(R6), 44(FABPTR : 
34 AB 0B Ab D Ab : 0099 SUBB3 61(R6). 11(R6) 8 CRABPTR) : 
0060 28F 00 6E 09 ¢ S009 mMovCS #0, (SP), #0, #96, (NAMPTR) + 1075 
67 6002 SF BO 000A8 Ovw #26578. (NAMPTR) : 
02 A7 01 F OOAD MNEGB #1, 2(NAMPTR) : 
04 A7 6— D 0081 MOVL NAMRSA, 4(NAMPTR) : 
OA A? 01 3 00B5 MNEGB #1, 10(NAMPTR) : 
0c A7 04 ag D 0089 MOVL apa tine 12 (NAMPTR) $ 
58 DD OOOBE PUSHL FABPT + 1083 
000000006 0 gi FB 900¢0 CALLS #1, ST SSPARSE F 
5 0 DO 000¢ MOVL RO, STA : 
1 2g E8 OOOCA BLBS STATUS, "YS + 1084 
52 DD 000CD PUSHL STATUS + 1086 
00000000" EF 9F OOOCF PUSHAB P.AAN : 
01 DD 00005 PUSHL #7 : 
00028362 8F DD 00007 PUSHL #164706 ; 
000000006 00 04 FB 000DD CALLS #4, LIBS$SIGNAL ; 
58 DD OO0ES 2$: PUSHL F + 1088 
000000006 00 01 FB OO0E6 CALLS #1, SYS$SEARCH : 
52 50 DO OO0ED MOVL RO. STATUS ; 
18 52 €8 O00FO BLBS STATUS, 3$ + 1089 
52 «DD O00F3 PUSHL STATUS + 1092 
OC A6 DD 000F5 PUSHL  12(R6) : 
7E 0B A6 9A O0O00OF8 MOVZBL 11(R6), -(SP) F 
02 DD OO0FC PUSHL # + 1091 
00029008 8F DD OOOFE PUSHL #167947 : 
000000006 00 05 FB 00104 CALLS #5, LIBSSIGNAL ; 
0115 31 00108 BRW 9$ ; 
04 A? DD 0010E 3s: PUSHL 4(NAMPTR) : 1098 
7E 03 A7 9A 00111 MOVZBL 3(NAMPTR), -(SP) s 
02 DD 00115 PUSHL ; 
00028FEB 8F DD 00117 PUSHL #167915 : 
000000006 00 04 FB 0011D CALLS #4, LIBSSIGNAL : 
51 0B Ab 9A 00124 MOVZBL 11(R6), R1 + 1104 
50 03 A? 9A 00128 MOVZBL 3 3 NanPRD : 1105 
50 00 0c 86 51 2D 0012C CMPC STYLIN 0, RO, @4(NAMPTR) > 1104 
04 87 91 2 ; | 
¢3 13 00134 BEQL 46 4$ : 
00028FF3 8F DD 00136 PUSHL #167923 + 1108 
000000006 00 01 FB 001 ¢ CALLS #1, LIBSSIGNAL ; 
0C Ab DD 0014 PUSHL : 1109 
7E 0B Ab 9A 00146 MOVZBL 11(R6), -(SP) : 
2 DD O14, PUSHL ; 
00028FFB BF DD 0014 PUSHL #167931 ; 
000000006 00 4 FB 01 CALLS #4 LIBSSIGNAL ; 
1 I‘ 0159 4$: ADDL2 #21, LENGTH : 1116 
6A 00000000° €EF 1 : 015¢ MOVC3 #21. P.AAO, (PTR) : 1117 
A 5 3 0164 MOVL R x PIR 3 
0 90000000" cf f 0167 MOVAB PAA TRL : 1124 
0080 CE 010E000 F DO 0016E MOVL #176947 8, BURLDESC > 1127 
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1o-g00-1 387 95:08:33 DEBUG. SRC JDBGNTYPE .832; 1 ra 
0084 CE 50 pO 00177 MOVL  CTRLBUF, CTRLDESC+4 : 1128 : 
10 AE 04 0017¢ CLRL A : N t 1129 ; 
34 AE 01060050 BF b0 17F MOVL  #17694800, FAODESC : 11 é : 
8 AE 30 «AE SE 00187 MOVAB FAOBUF, FAODESC+4 + 113 ; 
9 AE DD 0018C PUSHL RECNO + 1134 ; 
AE OF 91 F PUSHAB FAODESC ; ; 
18 AE OF 192 PUSHAB FAOLEN : ; 
008C CE 9F 0019 PUSHAB CTRLDESC ; ; 
000000006 00 04 FB 0199 CALLS #4, S1SSFAO : : 
15 0 E O1A0 BLBS = RO. -5$ : ; 
00000000' EF SF OO1A PUSHAB P.AAQ + 1136 ; 
1 DD 149 PUSHL : ; 
00028362 8F DD 001AB PUSHL #164706 : F 
000000006 00 03 FB 00181 CALLS #3, LIBSSIGNAL : ; 
59 10 AE CO 00188 5$ ADDL2 FAOLEN, LENGTH + 1137 ; 
00000084 &F 59 D1 O18¢ CMPL LENGTH, #132 + 1138. : 
15 15 001C BLEG ~=s«&$ : ; 
00000000' EF 9F 001C5 PUSHAB P.AAR + 1140 : 
01 DD 001¢B PUSHL # : | : 
00028362 8F DD 001CD PUSHL #164706 ; F 
000000006 00 03 FB 00103 CALLS #3, LIBSSIGNAL ; : 
6A 30 AE 10 AE 28 O01DA 6$ MOVC3 FAOLEN, FAOBUF, (PTR) + 1141 : 
SA 53 D0 O01E0 MOVL R3, P : ; 
50 03 A? 9A O01E3 MOVZBL 3(NAMPTR), RO + 1146) : 
59 50 CO 001E7 ADDL2 RO, LENGTH : | ; 
00000084 &F 59 D1 OO1EA CMPL LENGTH, #132 t 1147. : 
15 15 OO1F1 LEG ; : 
00000000" EF 9F 001F3 PUSHAB P.AAS : 1149 : 
01 DD 001F9 PUSHL ; | F 
00028362 8F DD 001FB PUSHL #164706 ; ; 
000000006 00 03 FB 00201 CALLS #3, LIBSSIGNAL : | ; 
50 03 A? 9A 00208 7$ MOVZBL 3(NAMPTR), RO + 1150. F 
6A 04 87 50 28 0020C MOVC3 RO, @4(NAMPTR), (PTR) : | : 
SA 53 D0 d0gt1 MOVL 3. PTR F ; 
0D 11 00214 BRB : 1089 : 
00029008 8F DD 00216 8$ PUSHL #167947 : 1156) : 
000000006 0 01 FB 0021C CALLS #1, LIBSSIGNAL ; : 
1A AE 010E 8F B80 90¢ 3 9$ MOVW 270, STG_DESC+2 : 1162 | : 
18 AE 59 BO 00229 MOVW LENGTH, STG_DES > 1163, ; 
iC AE FF7C CD 9E 00 p MOVAB COMMAND _LINE, STG_DESC+4 + 1164 : 
19 000000006 00 01 a 0 BBC #1, DBGSGL_DEVELOPER, 108 : 1170, : 
18 AE SF 00238 PUSHAB $TG_DESC : 1173) ; 
00000000' EF 9F 0023E PUSHAB  P. ; 3 
000000006 00 08 FB 00 44 CALLS ae, DBGSPRINT ; | : 
000000006 00 FB 48 CALLS #0, DBGSNEWLINE £1174, : 
69 11 0025 BRB 15§ : 1170. : 
000000006 00 00 FB 00254 10$: CALLS #0, DBGSSCR_SCREEN_NORMAL : 1182. : 
50 01 AB 9A 00 38 MOVZBL 1(R11), RO : 1187 | : 
01 50 91 0025F CMPB RO, #1 : 1190 : 
1 fF 0262 BNEQ 11$ ; : 
000000006 00 10 8 0264 BISB2 #16, DBG$GV_CONTROL F 1192 : 
18 AE 9F 00268 PUSHAB $1G_DESC 3 119 : 
000000006 00 01 FB 026 CALLS #1, LIB$DO_COMMAND F : 
46 1 : 7 BRB 15$ > 1187 : 
02 50 91 77 11% CMPBeRO, #2 > 1196 : 
2C 12 0027A BNEQ 14$ ; F 
18 AE OF 0027C PUSHAB STG_DESC > 1200 : 


3; Information: 1 
; Warnings: 
; Errors: 
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DBGNTYPE ibese -1984 02:08: AX-11 Bliss-32 V4.0-742 Page 33 D 
| vo4-000 12-808- 1 3be 95:08:38 DEBUG.SR RCIDBGNTYPE . B32;1 a V 
000000006 00 1 FB 7F CALLS #1, LIBSSPAWN : : 
6 000000006 00 E 6 BLBC  DBGSGB_KEYPAD_INPUT, 12$ : 1201 ; 
146 AE 1 bo D MOVL #1, X t 1202 ; 
3 4 1 BRB 13§ : | F 
16 AE p4 93 138 CLR x : 1203 ; 
14 AE OF 13$ PUSHAB + 1204 ; 
000000006 0 OF PUSHAB D G$GL_KEYBOARD_ID : : 
000000006 00 FB 0029F CALLS SMGSSET_KEYPAD_MODE ; ; 
1§ 11 ab RB 4 & + 1187. ; 
00000000" EF 9F O002A8 14$ PUSHAB P.AAU + 1208. ; 
1 DD 00 AE PUSHL # : ; 
00028362 8F DD 0 B PUSHL #164706 ; ; 
000000006 00 3 FB B6 CALLS #3, LIBSSIGNAL : : 
50 01 00 002B8D 15% MOVL #1. RO : 1215 F 
04 002C0 RET : 1216 ; 
; Routine Size: 705 bytes, Routine Base: DBGSCODE + 0406 ; 
; 1089 1217 0 END ELUDOM ; 
.EXTRN LIBSSIGNAL ; 
; PSECT SUMMARY ; 
; Name Bytes Attributes ; 
: DBGSPLIT 321 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) : 
> DBGSOWN : NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) : 
: DBGSCODE 1735 NOVEC.NOWRT. RD. EXE. SHR. LCL. REL. CON, PIC.ALIGN(O) 3 
: Library Statistics 3 
Seer ele a ieee Symbols -------- Pages Processing ; 
$ File Total Loaded Percent Mapped Time : 
; ~$255$DUA28: CSYSLIBILIB.L 18619 68 0 1000 00:01.9 ; 
3 7$255$DUA28: (DEBUG. OBJ srautber Ae 32 0 0 7 00:00.1 ; 
; ~$537$ DUA 8: DEBUG: 0BJ 3D 13231 1545 84 5 97 00:02.1 ; 
3 7$255$DUA28: (DEBUG. OBJ De TRECRDS. 132; : 
: 418 0 0 31 00:00.3 : 
3 .$255$DUA28: : EDEBUG. .0BJ JDBGMSG.L 33 1 386 10 ‘ 22 00:00. 3 ; 
3 7$255$DUA28: (DEBUG.0BJ JDBGGEN.L 32:1 15 0 12 00:00.3 : 
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; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:DBGNTYPE/OBJ=0BJ$:DBGNTYPE MSRC$:DBGNTYPE/UPDATE=(ENH$:DBGNTYPE ) 
: 3 1735 3 + 402 data bytes 

; th+9). Time: 1: 


5. 


1 
; Lexenes/CPU-Rin: 18199 
; Memor 1 out 252 pages 
; Compi ation: Complete 
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